home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / snapshot_gui.ifx < prev    next >
Text File  |  2004-08-03  |  5KB  |  129 lines
  1. /*
  2.  * $VER: Snapshot 2.0.0 (19.8.94)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel (from an idea by Bob Fisher)
  6.  *
  7.  * Take a directory of images, and reduce them to small thumbnail
  8.  * snapshot images, and place them on one or more images which are
  9.  * then saved out somewhere.  This script also renders the snapshot
  10.  * pages down to 16 color images for easy viewing.  We can also
  11.  * optionally stamp the name of the file at the bottom of each
  12.  * thumbnail.
  13.  *
  14.  * By default we make 640x400 24-bit renderings with a 5x5 grid
  15.  * of thumbnails.
  16.  *
  17.  * This script is just the interface for the snapshot options.
  18.  *
  19.  */
  20.  
  21. OPTIONS RESULTS
  22.  
  23. /* retreive defaults from any previous useage of this macro */
  24.  
  25. defdest  = GETCLIP('IFX_Snapshot_DefDest')
  26. numcols  = GETCLIP('IFX_Snapshot_Colors')
  27. gridsize = GETCLIP('IFX_Snapshot_Grid')
  28. width    = GETCLIP('IFX_Snapshot_Width')
  29. height   = GETCLIP('IFX_Snapshot_Height')
  30. labelit  = GETCLIP('IFX_Snapshot_Labels')
  31. grey     = GETCLIP('IFX_Snapshot_Grey')
  32. keepext  = GETCLIP('IFX_Snapshot_KeepExt')
  33. saveform = GETCLIP('IFX_Snapshot_SaveForm')
  34. saveopt  = GETCLIP('IFX_Snapshot_SaveOpts')
  35. spacing  = GETCLIP('IFX_Snapshot_Spacing')
  36. enhance  = GETCLIP('IFX_Snapshot_Enhance')
  37. doback   = GETCLIP('IFX_Snapshot_DoBack')
  38. backdrop = GETCLIP('IFX_Snapshot_Backdrop')
  39. doshadow = GETCLIP('IFX_Snapshot_DoShadow')
  40. red      = GETCLIP('IFX_Snapshot_Red')
  41. green    = GETCLIP('IFX_Snapshot_Green')
  42. blue     = GETCLIP('IFX_Snapshot_Blue')
  43.  
  44. /* some defaults - change as desired */
  45.  
  46. IF defdest  = '' THEN defdest  = "RAM:.Snap" /* default dest files */
  47. IF numcols  = '' THEN numcols  = 8           /* colors in renderings */
  48. IF gridsize = '' THEN gridsize = 5           /* thumbnail rows/cols */
  49. IF width    = '' THEN width    = 640         /* dest width */
  50. IF height   = '' THEN height   = 400         /* dest height */
  51. IF labelit  = '' THEN labelit  = 1           /* label each thumbnail? */
  52. IF grey     = '' THEN grey     = 0           /* convert to greyscale? */
  53. IF keepext  = '' THEN keepext  = 1           /* keep file extensions? */
  54. IF saveform = '' THEN saveform = 'ILBM'      /* save format */
  55. IF spacing  = '' THEN spacing  = 10          /* spacing between nails */
  56. IF enhance  = '' THEN enhance  = 1           /* enhance nails? */
  57. IF doback   = '' THEN doback   = 0           /* do backdrop texture? */
  58. IF backdrop = '' THEN backdrop = 'Textures/Leather'   /* backdrop texture */
  59. IF doshadow = '' THEN doshadow = 1           /* do shadowed nails? */
  60. IF red      = '' THEN red      = 128
  61. IF green    = '' THEN green    = 100
  62. IF blue     = '' THEN blue     = 140
  63.  
  64. /* get a directory and pattern and grid size */
  65.  
  66. Gadget.1  = 'I/190/19/Rows & Columns:/'gridsize
  67. Gadget.2  = 'I/190/34/Spacing:/'spacing
  68.  
  69. Gadget.3  = 'I/190/50/Width (Pixels):/'width
  70. Gadget.4  = 'I/190/65/Height (Pixels):/'height
  71. Gadget.5  = 'T/190/80/60/0/Save Format:/'saveform
  72. Gadget.6  = 'T/190/95/60/0/Save Options:/'saveopt
  73. Gadget.7  = 'D/162/110/100/Colors:/10/2/4/8/16/32/64/128/256/24-Bit/Print/'numcols
  74. Gadget.8  = 'T/110/125/140/1/Basename:/'defdest
  75.  
  76. Gadget.9  = 'X/300/20/Convert To Greyscale?/'grey
  77. Gadget.10 = 'X/300/34/Label Thumbnails?/'labelit
  78. Gadget.11 = 'X/300/46/Keep Extensions?/'keepext
  79. Gadget.12 = 'X/300/60/Enhance Thumbnails?/'enhance
  80. Gadget.13 = 'X/300/72/Create Shadows?/'doshadow
  81. Gadget.14 = 'X/300/86/Create Backdrop?/'doback
  82.  
  83. Gadget.15 = 'T/300/98/180/0/ /'backdrop
  84.  
  85. Gadget.16 = 'J/300/125/35/R:/'red
  86. Gadget.17 = 'J/370/125/35/G:/'green
  87. Gadget.18 = 'J/440/125/35/B:/'blue
  88.  
  89. ComplexRequest '"Snapshot V2.1 Options:"' 18 Gadget 520 165
  90. IF rc ~= 0 THEN EXIT
  91.  
  92. gridsize = result.1
  93. spacing  = result.2
  94. width    = result.3
  95. height   = result.4
  96. saveform = result.5
  97. saveopt  = result.6
  98. numcols  = result.7
  99. destbase = result.8
  100. grey     = result.9
  101. labelit  = result.10
  102. keepext  = result.11
  103. enhance  = result.12
  104. doshadow = result.13
  105. doback   = result.14
  106. backdrop = result.15
  107. red      = result.16
  108. green    = result.17
  109. blue     = result.18
  110.  
  111. CALL SETCLIP('IFX_Snapshot_DefDest', destbase)
  112. CALL SETCLIP('IFX_Snapshot_Colors', numcols)
  113. CALL SETCLIP('IFX_Snapshot_Grid', gridsize)
  114. CALL SETCLIP('IFX_Snapshot_Width', width)
  115. CALL SETCLIP('IFX_Snapshot_Height', height)
  116. CALL SETCLIP('IFX_Snapshot_Labels', labelit)
  117. CALL SETCLIP('IFX_Snapshot_Grey', grey)
  118. CALL SETCLIP('IFX_Snapshot_KeepExt', keepext)
  119. CALL SETCLIP('IFX_Snapshot_SaveForm', saveform)
  120. CALL SETCLIP('IFX_Snapshot_SaveOpts', saveopt)
  121. CALL SETCLIP('IFX_Snapshot_Spacing', spacing)
  122. CALL SETCLIP('IFX_Snapshot_Enhance', enhance)
  123. CALL SETCLIP('IFX_Snapshot_DoBack', doback)
  124. CALL SETCLIP('IFX_Snapshot_Backdrop', backdrop)
  125. CALL SETCLIP('IFX_Snapshot_DoShadow', doshadow)
  126. CALL SETCLIP('IFX_Snapshot_Red', red)
  127. CALL SETCLIP('IFX_Snapshot_Green', green)
  128. CALL SETCLIP('IFX_Snapshot_Blue', blue)
  129.